PC World 2007 June/PCWorld_2007-06_cd.bin/domacnost a kancelar/dremcom/dream563.exe/{app}/DreamCom.chm/demo2.txt

Text File | 2003-10-03 | 5KB | 75 lines

{Hlavicka skriptu, libovolne info, o autorovi atd.
Skript pro SMS branu http://web.icq.com/sms/inbox
Autor: DreamTeam}

procedure StatInit; //inicializace prom∞nn²ch p°i prvnφm naΦtenφ
begin
  Version := 1.0; //Φφslo verze skriptu
  MsgSizes := '160;155'; //velikosti jednotiv²ch zprßv odd∞len²ch st°ednφkem
  Countries := 'INT'; //onzaΦenφ do jak²ch zemφ lze odesφlat, INT je mezinßrodnφ skript, jinak zkratky zemφ ze staty.dat

  //NepovinnΘ parametry:
  PasswordLabel := Translate('Password') + ':'; // skript vy₧aduje p°ihlßÜenφ heslem, hodnota je text, kter² se zobrazuje na kart∞ skript∙
  UserPar1Label := Translate('UserName') + ':'; // skript vy₧aduje p°ihlßÜenφ u₧iv. jmΘnem, hodnota je text, kter² se zobrazuje na kart∞ skript∙, u₧. paramter∙ m∙₧e b²t a₧ 5
  Prefixes := '603;604;605'; //seznam prefix∙, kterΘ podporuje danß brßna
  CountryCode := 420; //K≤d stßtu, do kterΘho skript odesφlß. Pou₧φvß se jen k automatickΘmu p°i°azovßnφ skriptu u adresßta.
  MsgTime := 120;  //za jak dlouho je mo₧nΘ odeslat dalÜφ zprßvu
  QueueTime := 'NAME="smstime" VALUE="'; //°et∞zec na rozpoznßnφ doby, za kterou bude mo₧no odesφlat
  AoDAvail := True;   // brßna podporuje doruΦenku
  FlashAvail := True; // brßna podporuje flash
  IdentAvail := True; //brßna podporuje Identifikaci odesφlatele
  AoDOff := '';  //°et∞zec, kter² vrßtφ fce GetAod p°i vypnutΘ doruΦence
  FlashOn := 'flash=true'; //°et∞zec, kter² vrßtφ fce GetFlash p°i zapnutΘ doruΦence
  FlashOff := 'flash=false'; //°et∞zec, kter² vrßtφ fce GetFlash p°i vypnutΘ doruΦence
  IdentOff := ''; // °et∞zec, kter² vrßtφ fce GetIdent p°i vypnutΘ identifikaci
  Official := false; //tento skript je neoficißlnφ a nebude automaticky dopl≥ovßn u adresßt∙
  Info := 'Omezenφ 5 zprßv denn∞...'; //dopl≥ujφcφ informace o skriptu, kterΘ se zobrazujφ p°i kliknutφ na i v hlavnφm okn∞ a na kart∞ skript∙
end;

procedure DynInit; //nepovinnß procedura, volß se p°i zm∞n∞ adresßta v editoru, p°i zm∞n∞ doruΦenky Φi identifikace, p°ed odeslßnφm zprßvy
begin
  IdentOn := MyEmail; //do tΘto procedury dejte inicializaci prom∞nn²ch, kterΘ nejsou napl≥ovßny konstantou
  if Pos(Prefix,'608;776;777') > 0 then begin //Pokud je prefix 608 Φi 776 Φi 777
    Aod := false; Ident := false; MsgSizes := '152;152;152;152;152';
  end;
end;

procedure AfterKeyPress; //nepovinnß procedura, volß se p°i stisku klßvesy v editoru
begin
  if Length(Message) > 158 then MsgSizes := '156;156;154' else MsgSizes := '158;156;154';
end;

procedure Send(index: integer); //povinnß procedura, v kterΘ probφhß vlastnφ odesφlßnφ zprßvy (index oznaΦuje fßzi, ve kterΘ se odesφlßnφ nachßzφ)
begin
  case index of
    0: begin //prvnφ fßze odesφlßnφ
      GetPage('http://web.icq.com/sms/inbox', 'Msg_Loading'); //naΦte zadanou webovou strßnku a zobrazφ hlßÜku o naΦφtßnφ ·vodnφ strßnky v okn∞ udßlostφ
    end;
    1: begin //druhß fßze odesφlßnφ
       if Pos('Hello', GetHTMLSource) > 0 then begin Phase := 2; Send(Phase); exit; end; //pokud se na strßnce vyskytuje zadan² °et∞zec, p°ejde se na 3. fßzi (zbytek 2. fßze se u₧ neprovede)
       AddResult('Hello', 'Msg_Accepted', Resume); //pokud se na strßnce nachßzφ °et∞zec 'Hello', v okn∞ udßlostφ se zobrazφ hlßÜka o p°ijetφ hesla a pokraΦuje se dalÜφ fßzφ odesφlßnφ (Resume)
       AddResult('are incorrect','Msg_WrongPass', Cancel); //pokud se na strßnce nachßzφ °et∞zec 'are incorrect', v okn∞ udßlostφ se zobrazφ hlßÜka o ÜpatnΘm hesle a odesφlßnφ je ukonΦeno (Cancel)
       PostPage(
        'http://web.icq.com/sms/inbox/login.php',
        'karma_user_login=' + UserPar1 + '&karma_user_passwd=' + Password + '&Submit=Login'', //nßzvy prvk∙ formulß°e jsou ve formßtu 'nazev1=hodnota1&nazev2=hodnota2' atd.
        'Msg_Logging', //v okn∞ udßlostφ zobrazφ hlßÜku o ov∞°ovßnφ jmΘna a hesla
        0); //pauza p°ed zapoΦetφm dalÜφ fßze (v milisekundßch)
     end;
    2: begin //t°etφ fßze odesφlßnφ
      AddResult('has been successfully sent.','Msg_Sent', Success); //pokud se na strßnce nachßzφ °et∞zec 'has been successfully sent.', v okn∞ udßlostφ se zobrazφ hlßÜka o odeslßnφ zprßvy a odesφlßnφ je ·sp∞Ün∞ ukonΦeno (Success)
      AddResult('could not be sent', 'Msg_WrongNum', Cancel); //Üpatn∞ zadanΘ Φφslo, odesφlßnφ je ukonΦeno
      PostPage(
        'http://web.icq.com/sms/inbox/send.php',
        'country=' + ICode + '&carrier=' + Prefix + '&tophone=' + PhoneNP + '&msg=' + Message + '&Submit=Send', //nßzvy prvk∙ formulß°e
        'Msg_Sending', //zobrazφ se hlßÜka v okn∞ udßlostφ
        0); //₧ßdnß pauza
    end;
  end;
end;

case ParamStr(0) of //vlastnφ vykonßvßnφ skriptu
  'STATINIT' : StatInit; //povinnΘ - volß se statickß inicializace prom∞nn²ch
  'DYNINIT' : DynInit; //nepovinnΘ - volß se dynamickß inicializace prom∞nn²ch
  'SEND' : Send(Phase); //povinnΘ - volß se procedura Send
end;